GGpicTs.asp 忠网网站广告管理系统 ZonGG V1.3 - ASP源码程序

gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGpicTs.asp
    <!-- #INCLUDE FILE="login.asp" -->

<SCRIPT   language="JavaScript">    
var    currentpos,timer;    

function    initialize()    
{    
timer=setInterval("scrollwindow()",10);    
}    
function    sc(){    
clearInterval(timer);    
}    
function    scrollwindow()    
{    
currentpos=document.body.scrollTop;    
window.scroll(0,++currentpos);    
if    (currentpos    !=    document.body.scrollTop)    
sc();    
}    
document.onmousedown=sc    
document.ondblclick=initialize    
</SCRIPT>
<body topmargin="0" leftmargin="5" rightmargin="0" bottommargin="0" bgcolor="#FFFFFF">

  <div align="center">
    <center>
    <table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1" height="100%">
     <tr>
        <td height=100 valign="bottom">
<%
  

  if Lcase(right(trim(request("u")),3))="swf" then
 
   	'response.write "<td><embed src='"&rs(1)&"' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='120' ></embed></td>"
%>

 <SCRIPT LANGUAGE="JavaScript">
  document.write('<embed src=\"<%=trim(request("u"))%>\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\"  width=\"120\" height=\"100\"   hspace=\"10\" vspace=\"10\" align=\"left\"></embed>');
 </SCRIPT>

<%
    else

%>
    
 <SCRIPT LANGUAGE="JavaScript">
    document.write('<img  border=0  src=\"<%=trim(request("u"))%>\" onload=\"if((this.width/this.height)>(12/10)){this.width=120;}else{this.height=100;}\" align=\"left\"  hspace=\"10\" vspace=\"10\">');
 </SCRIPT>

 <%
   
   end if  
   

	
  Pid=trim(request("id"))

  if isnumeric(Pid) then

  sql="select ADid,ADname from Advertisement where Picid="&cint(Pid)
  rs.open sql,conn,1,1
  if not rs.eof then
  response.write "<br><BR><font class=red size=2>该广告图当前有以下广告条使用<br><BR>该广告图不可以被删除"
   
  else
  
  response.write "<br><BR><font class=red  size=2>该广告图当前没有被任何广告条使用<br><BR>该广告图可以被删除！ <i>--->> <a href='GGpicDel.asp?id="&Pid&"'>[立即删除]</a></i></font>"
  
  end if    
%>
 </td></tr>
 
   <tr>
        <td valign="top">
        
 <div align="center">
    <center>
    <table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="98%" id="AutoNumber1" height="100%" align=center>   
  <tr><td height=10></td></tr>
  <tr><td bgcolor=#FF6600 height=1></td></tr>
<tr><td height=10></td></tr>
   <tr>
        <td valign="top">

        
<%
  do while not rs.eof
  response.write "<font class=red> "&i+1&". </font><a href=javascript:opw('GGtiaoCz.asp?a=Yl&id="&rs(0)&"','ZonGG',800,600)>"&rs(1)&"</a>&nbsp; <font class=red>ID="&rs(0)&"</font> <a href=javascript:opw('GGtiaoCz.asp?a=Edit&id="&rs(0)&"','ZonGG',800,600)>[修]</a><br> "          
  rs.movenext
  loop
  
 
  rs.close
  
  end if
        
        %>
<br>
 </table>
</center>
</div>
   


  </td>
      </tr>    
      

      </table>
    </center>
</div>